home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Utilities / RA / RA Samples / Real.ra < prev    next >
Encoding:
Text File  |  1986-12-11  |  825 b   |  70 lines  |  [THED/THTH]
  1. |
  2. |  RA¬
  3. |  Breakpoint example
  4. |
  5. |   ⌐ 1986 COM~LINK & S.Koren
  6. |
  7. #M;
  8. "RA¬ now allows you to deal with!real math.!"
  9. 0.      #B;
  10. 1.      #B; 
  11. 2.      #B;
  12. 3.      #B; 
  13. 0.0     #B;
  14. 1.01    #B;
  15. 2.001   #B;
  16. 3.0001  #B;
  17. #A;
  18. "Real Math!!"
  19. 1.0 2.1 +í #B;
  20. 1.2 2.2 -í #B;
  21. 1.2 2.2 *í #B;
  22. 1.2 2.2 /í #B;
  23. #A;
  24. "Real Comparisons!!"
  25. 1.0 1.1 <í #B;
  26. 1.0 1.1 =í #B;
  27. 1.0 1.1 >í #B;
  28. #A;
  29. "Real Logicals!!"
  30. 0.0 1.0 -í 0.0 ╞í #B;
  31. 0.0 1.0 -í 0.0 ┤í #B;
  32. 0.0  ºí #B;
  33. #A;
  34. "Real Variables!!"
  35. 3.2 A:í
  36. A.í #B;
  37. #A;
  38. "THE END."
  39.  
  40. $
  41. &A
  42. "Hit any key: " ?ñ ╡ @`
  43. &B   | print a real number
  44. !í "!" `
  45. |
  46. |  RA title routine
  47. |
  48. &M
  49. #P,5,5;
  50. #G,10,10;
  51. #L,225,10;
  52. #L,225,105;
  53. #L,10,105;
  54. #L,10,10; 
  55. #O; #Q; `
  56.  
  57. &G 1% 2% Ñ0A893╝ª `
  58. &L 1% 2% Ñ0A891╝ª `
  59. &O
  60. 40 100 ╜
  61. "RA¬"
  62. 60 40 ╜ 
  63. "⌐ 1986/7 COM~LINK & S.Koren" 
  64. 80 60 ╜
  65. "All rights reserved." `
  66.  
  67. &P 1% 2% Ñ0A89B╝ª `
  68.  
  69. &Q ?ñ @ ╡`
  70. $